view tools/regs_use.pl @ 935:7672a37e7545 default tip

Raspbery PI ARM support begin
author kono
date Sat, 24 Dec 2016 03:02:57 +0000
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;
}