![[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-68k|
Return to cpuopti CVS log | Up to [UNIX Amiga Emulator] / uae / src / md-68k |
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: # 05/04/97: Modified to make it work with perl5. ! 10: # 25/10/97: Removed some optimisations suspected to introduce bugs. ! 11: # ! 12: # (c) By Samuel Devulder, 04/97. ! 13: # ! 14: ! 15: # uncomment the next 2 lines if you experience problems with the ! 16: # optimized code: ! 17: #while(<>) { print; } ! 18: #exit 0; ! 19: ! 20: ############################################################################### ! 21: ! 22: if($#ARGV >= $[) { ! 23: &usage; ! 24: } ! 25: ! 26: ############################################################################### ! 27: ! 28: while(<>) { ! 29: print; ! 30: last if /^_op_[0-9a-f]+:$/; ! 31: } ! 32: ! 33: ############################################################################### ! 34: ! 35: chop; ! 36: print STDERR "$_\r"; ! 37: $num_opt = 0; ! 38: while($last_func = &analyse_function) { ! 39: while(&optimize_function) {} ! 40: &dump_function; ! 41: print $last_func;$_ = $last_func;chop; ! 42: print STDERR "$_\r"; ! 43: } ! 44: while(&optimize_function) {} ! 45: &dump_function; ! 46: ! 47: print STDERR "$num_opt optimisations\n"; ! 48: ! 49: exit 0; ! 50: ! 51: ############################################################################### ! 52: ! 53: sub delete_line { ! 54: local($i) = @_; ! 55: for(; $i < $lineno; ++$i) { ! 56: $line[$i] = $line[1+$i]; ! 57: } ! 58: $line[--$lineno] = ""; ! 59: } ! 60: ! 61: ############################################################################### ! 62: ! 63: sub optimize_function { ! 64: local($i, $j, $ext, $adr, $reg, $opt, $tmp); ! 65: $opt = $num_opt; ! 66: for($i = 0; $i < $lineno; ++$i) { ! 67: study($line[$i]); ! 68: ################################################################# ! 69: # INST.x X,Dn => INST.x X,Dn ! 70: # TST.x Dn <deleted> ! 71: ################################################################# ! 72: if(($line[$i] =~/(mov[e]?|or|and|add|sub|tst)([bwl])\s+.+,(d[0-7])$/) ! 73: && ($line[$i+1]=~ /tst$2\s+$3/)) { ! 74: &delete_line($i+1); ! 75: ++$num_opt; ! 76: } ! 77: ################################################################# ! 78: # MOVE.x Dn,X => MOVE.x Dn,X ! 79: # TST.x Dn <deleted> ! 80: ################################################################# ! 81: if(($line[$i] =~ /mov[e]?([bwl])\s+(d[0-7]),(.+)$/) ! 82: && ($line[$i+1]=~ /tst$1\s+$2/)) { ! 83: &delete_line($i+1); ! 84: ++$num_opt; ! 85: } ! 86: ################################################################# ! 87: # MOVE.B 1(An),Dr => MOVE.W (An)+,Dr ! 88: # ADDQ.x #2,AN <deleted> ! 89: # This is allowed since An always points on (B1,B2) With B1==0 ! 90: ################################################################# ! 91: if($line[$i] =~ /moveb\s+(a[0-7])@\(1\),(d[0-7])$/) { ! 92: $adr=$1; $reg=$2; ! 93: if($line[$i+1] =~ /addq.\s+#2,$adr/) { ! 94: $line[$i] = "\tmovew $adr@+,$reg\n"; ! 95: &delete_line($i+1); ! 96: ++$num_opt; ! 97: ################################################################# ! 98: # CLR.W Dn => <deleted> ! 99: # MOVE.W X,Dn MOVE.W X,Dn ! 100: ################################################################# ! 101: if(($i>1) && ($line[$i-1] =~ /clrw\s+$reg/)) { ! 102: &delete_line($i-1); ! 103: ++$num_opt; ! 104: } ! 105: } ! 106: } ! 107: ################################################################# ! 108: # TST.x Dn => MOVE.x Dn,X ! 109: # ..(Dn not used).. ..(Dn not used).. ! 110: # MOVE.x Dn,X <deleted> ! 111: ################################################################# ! 112: # if(($line[$i] =~ /tst([bwl])\s+(d[0-7])$/)) { ! 113: # $ext = $1; $reg = $2; ! 114: # $line[$lineno] = "rts"; # sentinel ! 115: # $tmp = "(^.+:)|rts|\sj.+\s|$reg"; ! 116: # for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {} ! 117: # if($line[$j] =~ /mov[e]?$ext\s+$reg,(.+)$/) { ! 118: # $adr = $1; ! 119: # $tmp = ""; ! 120: # if($adr =~ /(a[0-7])/) {if($tmp eq "") {$tmp = "$1";} else {$tmp = "$tmp|$1"}} ! 121: # if($adr =~ /(d[0-7])/) {if($tmp eq "") {$tmp = "$1";} else {$tmp = "$tmp|$1"}} ! 122: # if(!($tmp eq "")) { ! 123: # for($k = $i+1; $k<$j && ($line[$k]!~/$tmp/); ++$k) {} ! 124: # } else {$k = $j;} ! 125: # if($k == $j) { ! 126: # $line[$i] = $line[$j]; ! 127: # &delete_line($j); ! 128: # ++$num_opt; ! 129: # } ! 130: # } ! 131: # } ! 132: if($line[$i] =~ /_regs/) { # some speedup ! 133: ################################################################# ! 134: # INST .._regs+N1.. => lea _regs+N2,An ! 135: # ..(no refs to _regs).. INST ..N1-N2(An).. ! 136: # lea _regs+N2,An ..(no refs to _regs).. ! 137: ################################################################# ! 138: if($line[$i] =~ /_regs(\+\d+)?/) { ! 139: $N1 = $1; ! 140: $line[$lineno] = "rts"; # sentinel ! 141: $tmp = "_regs|rts|\s+j.+\s|(^.+:)"; ! 142: for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {} ! 143: if($line[$j] =~ /lea\s+_regs(\+\d+)?,(a[0-7])$/) { ! 144: $N2 = $1; $An = $2; ! 145: for($k = $i; $line[$k] !~ /$An/; $k++) {} ! 146: if($k == $j) { ! 147: $N1 =~ s/^\+//; $N2 =~ y/+/-/; ! 148: $line[$i] =~ s/_regs(\+?)$N1/$An@\($N1$N2\)/g; ! 149: $ext = $line[$j]; ! 150: for($k=$j; $k>$i; --$k) {$line[$k] = $line[$k-1];} ! 151: $line[$i] = $ext; ! 152: ++$num_opt; ! 153: } ! 154: } ! 155: } ! 156: ################################################################# ! 157: # LEA _regs+N1,An => LEA _regs+N1,An ! 158: # ..An not modified.. ... ! 159: # INST .._regs+N2.. INST ..(N2-N1)An.. ! 160: ################################################################# ! 161: if($line[$i] =~ /lea\s+_regs(\+\d+)?,(a[0-7])/) { ! 162: $N1 = $1;$An = $2; ! 163: $line[$lineno] = "rts"; # sentinel ! 164: $tmp = "_regs|$An@[-+]|,$An|\sj.+\s|rts|(^.+:)"; ! 165: for($j = $i+1; $line[$j] !~ /$tmp/; ++$j) {} ! 166: if($line[$j] =~ /_regs(\+\d+)?/) { ! 167: $N2 = $1; $N1 =~ y/+/-/; ! 168: $tmp = $N2; $tmp =~ s/[+]/\\+/; ! 169: $line[$j] =~ s/_regs$tmp/$An@\($N2$N1\)/g; ! 170: $line[$j] =~ s/\(\)//g; ! 171: ++$num_opt; ! 172: } ! 173: } ! 174: } ! 175: ################################################################# ! 176: # MOVE.x X,Dp => MOVE.x X,Dp ! 177: # ..Dp not used.. MOVE.W CCR,Y ! 178: # TST.x Dp ..Dp not used.. ! 179: # MOVE.W ccr,Y ! 180: ################################################################# ! 181: # if($line[$i] =~ /mov[e]?([bwl])\s+.+,(d[0-7])$/) { ! 182: # $ext = $1;$reg = $2; ! 183: # $line[$lineno] = "rts"; # sentinel ! 184: # $tmp = "$reg|rts|\sj.+\s|(^.+:)"; ! 185: # for($j = $i+1; $line[$j] !~ /$tmp/; $j++) {} ! 186: # if(($line[$j] =~ /tst$ext\s+$reg$/) ! 187: # && ($line[$j+1] =~ /mov[e]?w\s+ccr,/)) { ! 188: # &delete_line($j); ! 189: # $ext = $line[$j]; ! 190: # for($k=$j;$k>$i+1;--$k) {$line[$k] = $line[$k-1];} ! 191: # $line[$i+1] = $ext; ! 192: # ++$num_opt; ! 193: # } ! 194: # } ! 195: ################################################################# ! 196: # General instruction scheduling optimisation: ! 197: # INST1 <memory op> => INST1 <memory op> ! 198: # INST2 <memory op> INST3 [R1,]R2 ! 199: # INST3 [R1,]R2 INST2 <memory op> ! 200: ################################################################# ! 201: if(($i>=2) ! 202: && ($line[$i] =~ /\s+(([ad][0-7]),)?([ad][0-7])$/) ! 203: && ($line[$i] !~ /^.+:/) ! 204: && ($line[$i+1] !~ /ccr|jb[^s]/)) { ! 205: $adr = $2?$2:"a8"; # unused register ! 206: $reg = $3; ! 207: study($line[$i-1]); ! 208: study($line[$i-2]); ! 209: if(($line[$i-1] =~ /@|_regflags/) ! 210: && ($line[$i-2] =~ /@|_regflags/) ! 211: && ($line[$i-1] !~ /(^[^\s]+:)|$adr|$reg|jb|ccr|lea|pea/) ! 212: && ($line[$i-2] !~ /$adr|$reg|lea|pea/)) { ! 213: $tmp = $line[$i-1]; ! 214: $line[$i-1] = $line[$i]; ! 215: $line[$i] = $tmp; ! 216: ++$num_opt; ! 217: } ! 218: } ! 219: } ! 220: return $num_opt-$opt; ! 221: } ! 222: ! 223: ############################################################################### ! 224: ! 225: sub not_used { ! 226: local($i, $reg) = @_; ! 227: ! 228: while($i < $lineno) { ! 229: $line[$i]=~/$reg/ && return 0; ! 230: ++$i; ! 231: } ! 232: return 1; ! 233: } ! 234: ! 235: ############################################################################### ! 236: ! 237: sub not_used_before { ! 238: local($i, $reg) = @_; ! 239: ! 240: while($i--) { ! 241: $line[$i]=~/$reg/ && return 0; ! 242: } ! 243: return 1; ! 244: } ! 245: ! 246: ############################################################################### ! 247: ! 248: sub analyse_function { ! 249: $lineno = 0; ! 250: while(<>) { ! 251: next if /^#(NO_)?APP/; ! 252: last if /^_op_[0-9a-f]+:$/; ! 253: $line[$lineno++] = $_; ! 254: } ! 255: return $_; ! 256: } ! 257: ! 258: ############################################################################### ! 259: ! 260: sub dump_function { ! 261: local($i); ! 262: for($i=0;$i < $lineno; ++$i) { ! 263: print $line[$i]; ! 264: } ! 265: } ! 266: ! 267: ############################################################################### ! 268: ! 269: sub usage { ! 270: open(FILE,__FILE__); ! 271: open(OUT,"|less"); ! 272: <FILE>; ! 273: while(<FILE>) { ! 274: last if !/^#/; ! 275: s/^#[ ]?//; ! 276: s/\$0/$0/; ! 277: print OUT; ! 278: } ! 279: close OUT; ! 280: exit; ! 281: } ! 282: ! 283: ############################################################################### ! 284:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.