Mercurial > hg > CbC > old > device

view tools/regs_use.pl @ 874:3454953b3df0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix inline strinit not yet worked.
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 01 Apr 2014 23:25:05 +0900
parents 7c3d8237b625
children
line wrap: on
line source

#!/usr/bin/perl
$d = 0;
while(<>) {
   s/get_register\(\d*\)/get_register($d)/g;
   s/get_lregister\(\d*\)/get_lregister($d)/g;
   $d++;
   print;
}