view tools/regs_use.pl @ 513:4c2607e72ab5

inline continue... fix function call cstring
author kono
date Mon, 26 Dec 2005 00:45:46 +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;
}