![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to cpuopti CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [UNIX Amiga Emulator] / uae / src / md-amiga|
Return to cpuopti CVS log | Up to [UNIX Amiga Emulator] / uae / src / md-amiga |
1.1 root 1: #!/bin/perl
2: #
3: # Usage: $0 <cpu?.s
4: #
5: # Small perl script to optimise cpu?.s
6: # Note: some optimisations done here are not safe! It is a chance
7: # if everything works fine...
8: #
9: # (c) By Samuel Devulder, 01/97.
10: #
11:
12: #while(<>) { print; }
13: #exit 0;
14:
15: ###############################################################################
16:
17: if($#ARGV >= $[) {
18: &usage;
19: }
20:
21: ###############################################################################
22:
23: while(<>) {
24: print;
25: last if /^_op_[0-9a-f]+:$/;
26: }
27:
28: ###############################################################################
29:
30: chop;
31: print STDERR "$_\r";
32: $num_opt = 0;
33: while($last_func = &analyse_function) {
34: while(&optimize_function) {}
35: &dump_function;
36: print $last_func;$_ = $last_func;chop;
37: print STDERR "$_\r";
38: }
39: while(&optimize_function) {}
40: &dump_function;
41:
42: print STDERR "$num_opt optimisations\n";
43:
44: exit 0;
45:
46: ###############################################################################
47:
48: sub delete_line {
49: local($i) = @_;
50: for(; $i < $lineno; ++$i) {
51: $line[$i] = $line[1+$i];
52: }
53: $line[--$lineno] = "";
54: }
55:
56: ###############################################################################
57:
58: sub optimize_function {
59: local($i, $j, $ext, $adr, $reg, $opt, $tmp);
60: $opt = $num_opt;
61: for($i = 0; $i < $lineno; ++$i) {
62: #################################################################
63: # INST.x X,Dn => INST.x X,Dn
64: # TST.x Dn <deleted>
65: #################################################################
66: if(($line[$i] =~/(mov[e]?|or|and|add|sub|tst)([bwl])\s+.+,(d[0-7])$/)
67: && ($line[$i+1]=~ /tst$2\s+$3/)) {
68: &delete_line($i+1);
69: ++$num_opt;
70: }
71: #################################################################
72: # MOVE.x Dn,X => MOVE.x Dn,X
73: # TST.x Dn <deleted>
74: #################################################################
75: if(($line[$i] =~ /mov[e]?([bwl])\s+(d[0-7]),(.+)$/)
76: && ($line[$i+1]=~ /tst$1\s+$2/)) {
77: &delete_line($i+1);
78: ++$num_opt;
79: }
80: #################################################################
81: # MOVE.B 1(An),Dr => MOVE.W (An)+,Dr
82: # ADDQ.x #2,AN <deleted>
83: # This is allowed since An always points on (B1,B2) With B1==0
84: #################################################################
85: if(($line[$i] =~ /moveb\s+(a[0-7])@\(1\),(d[0-7])$/)
86: && ($line[$i+1] =~ /addq.\s+#2,$1/)) {
87: $line[$i] = "\tmovew $1@+,$2\n";
88: &delete_line($i+1);
89: ++$num_opt;
90: #################################################################
91: # CLR.W Dn => <deleted>
92: # MOVE.W X,Dn MOVE.W X,Dn
93: #################################################################
94: if(($i>1) && ($line[$i-1] =~ /clrw\s+$2/)) {
95: &delete_line($i-1);
96: ++$num_opt;
97: }
98: }
99: #################################################################
100: # INST.x X,Dn => INST.x Dn,X
101: # ..(Dn not used).. ..(Dn not used)..
102: # MOVE.x Dn,X <deleted>
103: # ..Dn dead..
104: # INST = or | and | add
105: #################################################################
106: # too much unsafe
107: # if(($line[$i] =~ /(or|and|add)([bwl])\s+(.+),(d[2-7])$/)) {
108: # $ext = $2; $adr = $3; $reg = $4;
109: # $adr =~s/([()])/\\\1/g;
110: # $tmp = "$reg|\sj.+\s|rts|(^.+:)";
111: # # ^ ^ ^
112: # # No jump nor rts nor label
113: # for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {}
114: # if($line[$j] =~ /mov[e]?$ext\s+$reg,$adr$/) {
115: # $line[$i] =~ s/($adr),($reg)$/ \2,\1/;
116: # &delete_line($j);
117: # ++$num_opt;
118: # }
119: # }
120: #################################################################
121: # MOVE.x X,Dn => MOVE.x X,Y
122: # ..(Dn not used).. ..(Dn not used)..
123: # MOVE.x Dn,Y <deleted>
124: # The ..(Dn ...).. part must not modify regs of Y
125: #################################################################
126: # if(($line[$i] =~ /mov[e]?([bwl])\s+.+,(d[2-7])$/)) {
127: # $ext = $1; $reg = $2;
128: # $tmp = "$reg|(^\sj.+\s)|rts|(^.+:)";
129: # for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {}
130: # if($line[$j] =~ /mov[e]?$ext\s+$reg,(.+)$/) {
131: # $adr = $1;
132: # $tmp = "";
133: # if($adr =~ /(a[0-7])/) {if($tmp eq "") {$tmp = "$1";} else {$tmp = "$tmp|$1"}}
134: # if($adr =~ /(d[0-7])/) {if($tmp eq "") {$tmp = "$1";} else {$tmp = "$tmp|$1"}}
135: # if(!($tmp eq "")) {
136: # for($k = $i+1; $k<$j && ($line[$k]!~/$tmp/); ++$k) {}
137: # } else {$k = $j;}
138: # if($k == $j) {
139: # $line[$i] =~ s/,$reg$/,$adr/;
140: # &delete_line($j);
141: # ++$num_opt;
142: # }
143: # }
144: # }
145: #################################################################
146: # TST.x Dn => MOVE.x Dn,X
147: # ..(Dn not used).. ..(Dn not used)..
148: # MOVE.x Dn,X <deleted>
149: #################################################################
150: if(($line[$i] =~ /tst([bwl])\s+(d[0-7])$/)) {
151: $ext = $1; $reg = $2;
152: $line[$lineno] = "rts"; # sentinel
153: $tmp = "(^.+:)|rts|\sj.+\s|$reg";
154: for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {}
155: if($line[$j] =~ /mov[e]?$ext\s+$reg,(.+)$/) {
156: $adr = $1;
157: $tmp = "";
158: if($adr =~ /(a[0-7])/) {if($tmp eq "") {$tmp = "$1";} else {$tmp = "$tmp|$1"}}
159: if($adr =~ /(d[0-7])/) {if($tmp eq "") {$tmp = "$1";} else {$tmp = "$tmp|$1"}}
160: if(!($tmp eq "")) {
161: for($k = $i+1; $k<$j && ($line[$k]!~/$tmp/); ++$k) {}
162: } else {$k = $j;}
163: if($k == $j) {
164: $line[$i] = $line[$j];
165: &delete_line($j);
166: ++$num_opt;
167: }
168: }
169: }
170: if($line[$i] =~ /_regs/) { # some speedup
171: #################################################################
172: # movel X,_regs+N1 => <deleted>
173: # ...no refs to _regs+N1.. ..stuff..
174: # movel Y,_regs+N1 movel Y,_regs+N1
175: #################################################################
176: if($line[$i] =~ /movel\s+.+,_regs(.*)$/) {
177: $N1 = $1; $N1 =~ s/^[+]/\\+/;
178: $line[$lineno] = "_regs$1"; # sentinel
179: $tmp = "_regs$N1|\sj.+\s|rts|(^.+:)";
180: for($k=$i+1;$line[$k] !~ /$tmp/;++$k) {}
181: if($line[$k] =~ /movel\s+.+,_regs$N1$/) {
182: &delete_line($i);
183: ++$num_opt;
184: }
185: }
186: #################################################################
187: # INST .._regs+N1.. => lea _regs+N2,An
188: # ..(no refs to _regs).. INST ..N1-N2(An)..
189: # lea _regs+N2,An ..(no refs to _regs)..
190: #################################################################
191: if($line[$i] =~ /_regs(\+\d+)?/) {
192: $N1 = $1;
193: $line[$lineno] = "rts"; # sentinel
194: $tmp = "_regs|rts|\s+j.+\s|(^.+:)";
195: for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {}
196: if($line[$j] =~ /lea\s+_regs(\+\d+)?,(a[0-7])$/) {
197: $N2 = $1; $An = $2;
198: for($k = $i; $line[$k] !~ /$An/; $k++) {}
199: if($k == $j) {
200: $N1 =~ s/^\+//; $N2 =~ y/+/-/;
201: $line[$i] =~ s/_regs(\+?)$N1/$An@\($N1$N2\)/g;
202: $ext = $line[$j];
203: for($k=$j; $k>$i; --$k) {$line[$k] = $line[$k-1];}
204: $line[$i] = $ext;
205: ++$num_opt;
206: }
207: }
208: }
209: #################################################################
210: # LEA _regs+N1,An => LEA _regs+N1,An
211: # ..An not modified.. ...
212: # INST .._regs+N2.. INST ..(N2-N1)An..
213: #################################################################
214: if($line[$i] =~ /lea\s+_regs(\+\d+)?,(a[0-7])/) {
215: $N1 = $1;$An = $2;
216: $line[$lineno] = "rts"; # sentinel
217: $tmp = "_regs|$An@[-+]|,$An|\sj.+\s|rts|(^.+:)";
218: for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {}
219: if($line[$j] =~ /_regs(\+\d+)?/) {
220: $N2 = $1; $N1 =~ y/+/-/;
221: $tmp = $N2; $tmp =~ s/[+]/\\+/;
222: $line[$j] =~ s/_regs$tmp/$An@\($N2$N1\)/g;
223: $line[$j] =~ s/\(\)//g;
224: ++$num_opt;
225: }
226: }
227: #################################################################
228: # ..<A1> not used.. ..<A1> not used..
229: # MOVE.L _regs+N1,A0 => MOVE.L _regs+N1,A1
230: # MOVE.x (A0)+,Dp MOVE.x (A1)+,Dp
231: # MOVE.L A0,_regs+N MOVE.L A1,_regs+N1
232: # LEA _regs+N2,A0 LEA _regs+N2,A0
233: #################################################################
234: if(($line[$i] =~ /mov[e]?l\s+_regs(\+\d+)?,a0$/)
235: && ¬_used_before($i,"a1")) {
236: if(($line[$i+1] =~ /mov[e]?[bwl]\s+a0@\+,d[0-7]$/)
237: && ($line[$i+2] =~ /mov[e]?l\s+a0,_regs(\+\d+)?/)
238: && ($line[$i+3] =~ /lea\s+_regs(\+\d+)?,a0/)) {
239: $line[$i] =~ s/a0/a1/;
240: $line[$i+1] =~ s/a0/a1/;
241: $line[$i+2] =~ s/a0/a1/;
242: ++$num_opt;
243: }
244: }
245: }
246: #################################################################
247: # MOVE.x X,Dp => MOVE.x X,Dp
248: # ..Dp not used.. MOVE.W CCR,Y
249: # TST.x Dp ..Dp not used..
250: # movew ccr,Y
251: #################################################################
252: if($line[$i] =~ /mov[e]?([bwl])\s+.+,(d[0-7])$/) {
253: $ext = $1;$reg = $2;
254: $line[$lineno] = "rts"; # sentinel
255: $tmp = "$reg|rts|\sj.+\s|(^.+:)";
256: for($j = $i+1; $line[$j] !~ /$tmp/; $j++) {}
257: if(($line[$j] =~ /tst$ext\s+$reg$/)
258: && ($line[$j+1] =~ /mov[e]?w\s+ccr,/)) {
259: &delete_line($j);
260: $ext = $line[$j];
261: for($k=$j;$k>$i+1;--$k) {$line[$k] = $line[$k-1];}
262: $line[$i+1] = $ext;
263: ++$num_opt;
264: }
265: }
266: }
267: return $num_opt-$opt;
268: }
269:
270: ###############################################################################
271:
272: sub not_used {
273: local($i, $reg) = @_;
274:
275: while($i < $lineno) {
276: $line[$i]=~/$reg/ && return 0;
277: ++$i;
278: }
279: return 1;
280: }
281:
282: ###############################################################################
283:
284: sub not_used_before {
285: local($i, $reg) = @_;
286:
287: while($i--) {
288: $line[$i]=~/$reg/ && return 0;
289: }
290: return 1;
291: }
292:
293: ###############################################################################
294:
295: sub analyse_function {
296: $lineno = 0;
297: while(<>) {
298: next if /^#(NO_)?APP/;
299: last if /^_op_[0-9a-f]+:$/;
300: $line[$lineno++] = $_;
301: }
302: return $_;
303: }
304:
305: ###############################################################################
306:
307: sub dump_function {
308: local($i);
309: for($i=0;$i < $lineno; ++$i) {
310: print $line[$i];
311: }
312: }
313:
314: ###############################################################################
315:
316: sub usage {
317: open(FILE,__FILE__);
318: open(OUT,"|less");
319: <FILE>;
320: while(<FILE>) {
321: last if !/^#/;
322: s/^#[ ]?//;
323: s/\$0/$0/;
324: print OUT;
325: }
326: close OUT;
327: exit;
328: }
329:
330: ###############################################################################
331:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.