Mercurial > hg > CbC > old > device

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Raspbery PI ARM support begin
author kono
date Sat, 24 Dec 2016 03:02:57 +0000
parents 7c3d8237b625
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
466
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
1 #!/usr/bin/perl
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
2 $d = 0;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
3 while(<>) {
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
4 s/get_register\(\d*\)/get_register($d)/g;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
5 s/get_lregister\(\d*\)/get_lregister($d)/g;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
6 $d++;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
7 print;
7c3d8237b625 *** empty log message ***
kono
parents:
diff changeset
8 }