rev |
line source |
pascal@20458
|
1 BEGIN { hold=0 }
|
pascal@20458
|
2 function isnum(n) { return match(n,/^[0-9+-]/) }
|
pascal@20458
|
3 {
|
pascal@20458
|
4 if (hold == 0) {
|
pascal@20458
|
5 s=$0
|
pascal@20458
|
6 if (/^ mov .x,bx$/ || /^ mov .x,.i$/) {
|
pascal@20520
|
7 r=$2
|
pascal@20458
|
8 hold=1; split($2,regs,","); next
|
pascal@20458
|
9 }
|
pascal@20458
|
10 if (/^ inc e?.[ix]/ || /^ dec e?.[ix]/) {
|
pascal@20458
|
11 hold=2; r=$2; next
|
pascal@20458
|
12 }
|
pascal@20458
|
13 if (/^ mov [abcds][ix],/ && ! /,.s/) {
|
pascal@20458
|
14 hold=3; split($2,regs,","); next
|
pascal@20458
|
15 }
|
pascal@20458
|
16 if (/^ movzx eax,ax$/) { hold=4; next }
|
pascal@20520
|
17 if (/^ mov cl,4$/) { hold=8; next }
|
pascal@20458
|
18 }
|
pascal@20458
|
19 else if (hold == 1) {
|
pascal@20520
|
20 if (/^ ;/) { print; next }
|
pascal@20458
|
21 hold=0; split($2,args,","); op=""
|
pascal@20458
|
22 if ($1 == "add") op="+"
|
pascal@20458
|
23 if ($1 == "sub") op="-"
|
pascal@20458
|
24 if (op != "" && regs[1] == args[1] && isnum(args[2])) {
|
pascal@20458
|
25 print "\tlea\t" regs[1] ",[" regs[2] op args[2] "]"
|
pascal@20458
|
26 next
|
pascal@20458
|
27 }
|
pascal@20520
|
28 if (/^ pop [ds]i/ && regs[2] ~ /^[ds]i$/) {
|
pascal@20520
|
29 print " xchg " r
|
pascal@20520
|
30 }
|
pascal@20520
|
31 else print "\tmov\t" regs[1] "," regs[2]
|
pascal@20458
|
32 }
|
pascal@20458
|
33 else if (hold == 2) {
|
pascal@20458
|
34 hold=0; split($2,args,","); print s
|
pascal@20458
|
35 if ($1 == "or" && r == args[1] && r == args[2]) next # don't clear C ...
|
pascal@20458
|
36 }
|
pascal@20458
|
37 else if (hold == 3) {
|
pascal@20458
|
38 hold=0
|
pascal@20458
|
39 if (/^ add [abcds][ix],/ || /^ sub [abcds][ix],/) {
|
pascal@20458
|
40 split($2,regs2,",")
|
pascal@20458
|
41 if (regs[1] == regs2[1] && (regs2[2] == "offset" || isnum(regs2[2]))) {
|
pascal@20458
|
42 t=$0; sub(/mov/,$1,s)
|
pascal@20458
|
43 if ($1 == "add") sub(/add/,"mov",t); else sub(/sub/,"mov",t)
|
pascal@20458
|
44 print t; print s; next
|
pascal@20458
|
45 }
|
pascal@20458
|
46 }
|
pascal@20458
|
47 print s
|
pascal@20458
|
48 }
|
pascal@20458
|
49 else if (hold == 4) {
|
pascal@20458
|
50 hold=0
|
pascal@20458
|
51 if (/^ push eax$/) {
|
pascal@20458
|
52 print " push 0"; print " push ax"; next
|
pascal@20458
|
53 } else { print s }
|
pascal@20458
|
54 }
|
pascal@20520
|
55 else if (hold == 8) {
|
pascal@20458
|
56 hold=0
|
pascal@20520
|
57 if (/^ call near ptr N_LXURSH@$/) {
|
pascal@20520
|
58 print " extrn N_LXURSH@4:near"
|
pascal@20520
|
59 print " call near ptr N_LXURSH@4"
|
pascal@20520
|
60 next
|
pascal@20520
|
61 }
|
pascal@20528
|
62 if (/^ call near ptr N_LXLSH@$/) {
|
pascal@20528
|
63 print " extrn N_LXLSH@4:near"
|
pascal@20528
|
64 print " call near ptr N_LXLSH@4"
|
pascal@20528
|
65 next
|
pascal@20528
|
66 }
|
pascal@20520
|
67 print s
|
pascal@20458
|
68 }
|
pascal@20458
|
69 s=$0
|
pascal@20458
|
70 # These optimisation may break ZF or CF
|
pascal@20485
|
71 if (/^ sub sp,2$/) { print " push ax"; next }
|
pascal@20485
|
72 if (/^ sub sp,4$/) { print " push ax"; print " push ax"; next }
|
pascal@20485
|
73 if (/^ add sp,4$/) { print " pop cx"; print " pop cx"; next }
|
pascal@20458
|
74 if (/^ mov d*word ptr .*,0$/ || /^ mov dword ptr .*,large 0$/) {
|
pascal@20458
|
75 sub(/mov/,"and",s); print s; next # slower
|
pascal@20458
|
76 }
|
pascal@20458
|
77 if (/^ mov d*word ptr .*,-1$/ || /^ mov dword ptr .*,large -1$/) {
|
pascal@20458
|
78 sub(/mov/,"or",s); print s; next # slower
|
pascal@20458
|
79 }
|
pascal@20458
|
80 if (/^ or .*,0$/ || /^ and .*,-1$/) next
|
pascal@20458
|
81 if (/^ or [abcd]x,/) {
|
pascal@20458
|
82 split($2,args,",")
|
pascal@20458
|
83 if (isnum(args[2]) && args[2] >= 0 && args[2] < 256) {
|
pascal@20458
|
84 print " or " substr(args[1],1,1) "l," args[2]; next
|
pascal@20458
|
85 }
|
pascal@20458
|
86 }
|
pascal@20458
|
87 if (/^ and [abcd]x,/) {
|
pascal@20458
|
88 split($2,args,",")
|
pascal@20459
|
89 if (isnum(args[2]) && args[2] >= -256 && args[2] < 0) {
|
pascal@20458
|
90 print " and " substr(args[1],1,1) "l," args[2]; next
|
pascal@20458
|
91 }
|
pascal@20458
|
92 }
|
pascal@20458
|
93 if (/^ or e[abcd]x,/) {
|
pascal@20458
|
94 split($2,args,",")
|
pascal@20458
|
95 if (args[2] == "large") { args[2] = $3 }
|
pascal@20458
|
96 if (isnum(args[2]) && args[2] >= 0 && args[2] < 256) {
|
pascal@20458
|
97 print " or " substr(args[1],2,1) "l," args[2]; next
|
pascal@20458
|
98 }
|
pascal@20458
|
99 }
|
pascal@20458
|
100 if (/^ and e[abcd]x,/) {
|
pascal@20458
|
101 split($2,args,",")
|
pascal@20458
|
102 if (args[2] == "large") { args[2] = $3 }
|
pascal@20459
|
103 if (isnum(args[2]) && args[2] >= -256 && args[2] < 0) {
|
pascal@20458
|
104 print " and " substr(args[1],2,1) "l," args[2]; next
|
pascal@20458
|
105 }
|
pascal@20458
|
106 }
|
pascal@20458
|
107 if (/^ or e[abcds][ix],/) {
|
pascal@20458
|
108 split($2,args,",")
|
pascal@20458
|
109 if (args[2] == "large") { args[2] = $3 }
|
pascal@20458
|
110 if (isnum(args[2]) && args[2] >= 0 && args[2] < 65536) {
|
pascal@20458
|
111 print " or " substr(args[1],2) "," args[2]; next
|
pascal@20458
|
112 }
|
pascal@20458
|
113 }
|
pascal@20458
|
114 if (/^ and e[abcds][ix],/) {
|
pascal@20458
|
115 split($2,args,",")
|
pascal@20458
|
116 if (args[2] == "large") { args[2] = $3 }
|
pascal@20459
|
117 if (isnum(args[2]) && args[2] >= -65536 && args[2] < 0) {
|
pascal@20458
|
118 print " and " substr(args[1],2) "," args[2]; next
|
pascal@20458
|
119 }
|
pascal@20458
|
120 }
|
pascal@20458
|
121 if (/^ add word ptr/ || /^ sub word ptr/) {
|
pascal@20458
|
122 split($0,args,",")
|
pascal@20458
|
123 if (isnum(args[2]) && (args[2] % 256 == 0)) {
|
pascal@20458
|
124 sub(/word/,"byte",s); sub(/\]/,"+1]",s)
|
pascal@20458
|
125 print s "/256"; next
|
pascal@20458
|
126 }
|
pascal@20458
|
127 }
|
pascal@20458
|
128 if (/^ add dword ptr/ || /^ sub dword ptr/) {
|
pascal@20458
|
129 split($0,args,",")
|
pascal@20458
|
130 if (args[2] == "large") { split(args[2],args," ") }
|
pascal@20458
|
131 if (isnum(args[2])) {
|
pascal@20458
|
132 if (args[2] % 16777216 == 0) {
|
pascal@20458
|
133 sub(/dword/,"byte",s); sub(/\]/,"+3]",s)
|
pascal@20458
|
134 print s "/16777216"; next
|
pascal@20458
|
135 }
|
pascal@20458
|
136 if (args[2] % 65536 == 0) {
|
pascal@20458
|
137 sub(/dword/,"word",s); sub(/\]/,"+2]",s)
|
pascal@20458
|
138 print s "/65536"; next
|
pascal@20458
|
139 }
|
pascal@20458
|
140 }
|
pascal@20458
|
141 }
|
pascal@20458
|
142 if (/^ mov e.x,/) {
|
pascal@20458
|
143 split($2,args,",")
|
pascal@20458
|
144 r=args[1]
|
pascal@20458
|
145 if (args[2] == "large") { args[2] = $3 }
|
pascal@20458
|
146 if (isnum(args[2]) && args[2] % 65536 == args[2]) {
|
pascal@20458
|
147 if (args[2] % 256 == args[2] || args[2] % 256 == 0) {
|
pascal@20458
|
148 print " xor " r "," r
|
pascal@20458
|
149 if (args[2] == 0) next
|
pascal@20458
|
150 x=" mov " substr(r,2,1)
|
pascal@20458
|
151 if (args[2] % 256 == 0) {
|
pascal@20458
|
152 print x "h," args[2] "/256"
|
pascal@20458
|
153 }
|
pascal@20458
|
154 else { print x "l," args[2] }
|
pascal@20458
|
155 next
|
pascal@20458
|
156 }
|
pascal@20458
|
157 }
|
pascal@20458
|
158 }
|
pascal@20458
|
159 print
|
pascal@20458
|
160 }
|