wok annotate linld/stuff/src/pipehole.awk @ rev 21752

tazboot: shrink (again)
author Pascal Bellard <pascal.bellard@slitaz.org>
date Sat Jun 15 22:12:18 2019 +0200 (2019-06-15)
parents 74a62a08433a
children 8b9f768b711e
rev   line source
pascal@21750 1 BEGIN { hold=0; is386=0; isload=0; isiso=0; istazboot=0; wascall=0 }
pascal@20458 2 function isnum(n) { return match(n,/^[0-9+-]/) }
pascal@20458 3 {
pascal@20632 4 sub(/segment word public/,"segment byte public")
pascal@20634 5
pascal@21576 6 if (/^@.*:$/ || / endp$/) afterjmp=0
pascal@21729 7 if (/dword ptr/) is386=1
pascal@21750 8 if (/vid_mode = vid_mode/) isload=2
pascal@21750 9 if (isload == 2) { # LOAD.LST
pascal@21750 10 sub(/,0/,""); sub(/cmp /,"mov cx,")
pascal@21750 11 sub(/je/,"jcxz")
pascal@21750 12 if (/ax,word/) next
pascal@21750 13 sub(/,ax/,",cx")
pascal@21750 14 if (/version_string/) isload=0
pascal@21750 15 }
pascal@21729 16 if (/heap_top = _rm_buf/) isload=1
pascal@21750 17 if (isload == 1) { # LOAD.LST
pascal@21729 18 if (/mov al,byte ptr/ && is386) {
pascal@21729 19 print " movzx eax,byte ptr [si]"
pascal@21729 20 next
pascal@21729 21 }
pascal@21729 22 if (/ax,word ptr/) next
pascal@21729 23 if (/^ call/) isload=0
pascal@21729 24 }
pascal@21735 25 if (/x->curdirsize == 0xFFFF/) isiso=4
pascal@21735 26 if (isiso == 4) { # ISO9660.LST
pascal@21747 27 sub(/DGROUP:_isostate\+14/,"[si+14]")
pascal@21747 28 sub(/DGROUP:_isostate\+16/,"[si+16]")
pascal@21747 29 if (/goto restarted/) isiso=0
pascal@21735 30 }
pascal@21750 31 if (/c = \*s; \*s = 0;/) isiso=3
pascal@21750 32 if (isiso == 3) { # ISO9660.LST, TAZBOOT.LST
pascal@21735 33 if (/al,byte ptr/) {
pascal@21735 34 print " mov al,0"
pascal@21735 35 sub(/mov/,"xchg")
pascal@21735 36 }
pascal@21750 37 if (/byte ptr \[.*\],0/) {
pascal@21735 38 isiso=0
pascal@21735 39 next
pascal@21735 40 }
pascal@21735 41 }
pascal@21735 42 if (/endname = NULL/) isiso=2
pascal@21735 43 if (isiso == 2) { # ISO9660.LST
pascal@21735 44 if (/mov bx,cx/) next
pascal@21735 45 gsub(/cx/,"bx")
pascal@21747 46 sub(/DGROUP:_isostate\+31/,"[si+31]")
pascal@21735 47 }
pascal@21735 48 if (/const char \*n = name/) isiso=1
pascal@21735 49 if (isiso == 1) { # ISO9660.LST
pascal@21735 50 if ((/mov word ptr \[si\+32\],ax/ ) ||
pascal@21735 51 (/mov ax,word ptr \[si\+28\]/) ||
pascal@21735 52 (/bx,word ptr \[si\+32\]/) || (/ax,dx/)) next
pascal@21729 53 if (/dx,/) sub(/dx/,"ax")
pascal@21735 54 if ((/sub ax,word ptr \[si\+28\]/) ||
pascal@21735 55 (/\[si\+12\]/) || (/ax,di/)) sub(/ax/,"bx")
pascal@21735 56 if (/add word ptr \[si\+32\],ax/) $0=" add bx,word ptr [si+12]"
pascal@21735 57 if (/al,/ || /,al/) sub(/al/,"cl")
pascal@21735 58 if (/cmp byte ptr \[si\+30\],0/) $0=" or cl,cl"
pascal@21735 59 if (/jne @@0$/) next
pascal@21735 60 if (/jmp @3@58$/) $0=" je @3@58"
pascal@21729 61 }
pascal@21750 62 if (/isoopen\(s\+7\) != -1/) isotazboot=8
pascal@21750 63 if (isotazboot == 8) { # TAZBOOT.LST
pascal@21750 64 if (/ax,si/) next
pascal@21750 65 sub(/ax,ax/,"si,si")
pascal@21750 66 if (/magic/) isotazboot=0
pascal@21750 67 }
pascal@21750 68 if (/\+\+isknoppix/) isotazboot=7
pascal@21750 69 if (isotazboot == 7) { # TAZBOOT.LST
pascal@21750 70 if (/al,byte/) sub (/al,byte ptr DGROUP:/,"bx,offset ")
pascal@21750 71 if (/inc/) sub (/al/,"word ptr [bx]")
pascal@21750 72 if (/,al/) next
pascal@21750 73 if (/isokernel/) isotazboot=0
pascal@21750 74 }
pascal@21750 75 if (/if \(c\) s\+\+;/) isotazboot=6
pascal@21750 76 if (isotazboot == 6) { # TAZBOOT.LST
pascal@21750 77 if (/cmp/) {
pascal@21750 78 $0=" cmp al,0"
pascal@21750 79 isotazboot=0
pascal@21750 80 }
pascal@21750 81 }
pascal@21750 82 if (/initrd_state.info\[m->state\]/) isotazboot=5
pascal@21750 83 if (isotazboot == 5) { # TAZBOOT.LST
pascal@21750 84 if (/cx,ax/) $0=" xchg ax,bx"
pascal@21750 85 if (/mov ax,word ptr \[si\]/) $0=" lodsw"
pascal@21750 86 if (/ax,word ptr \[si\+28\]/) next
pascal@21750 87 if (/bx,cx/) next
pascal@21750 88 if (/endp/) isotazboot=0
pascal@21750 89 }
pascal@21750 90 if (/0x7FF0/) isotazboot=4
pascal@21750 91 if (isotazboot == 4) { # TAZBOOT.LST
pascal@21750 92 if (/ax,word ptr/) {
pascal@21750 93 print " mov ax,32752"
pascal@21750 94 sub(/mov/,"sub")
pascal@21750 95 }
pascal@21750 96 if (/bx,/ || /cx,/ || /dx,/) next
pascal@21750 97 sub(/,bx/,",0")
pascal@21750 98 sub(/,cx/,",ax")
pascal@21750 99 if (/short/) isotazboot=0
pascal@21750 100 }
pascal@21750 101 if (/c = x->filename/) isotazboot=3
pascal@21750 102 if (isotazboot == 3) { # TAZBOOT.LST
pascal@21750 103 if (/ax,/) $0=" xchg ax,bx"
pascal@21750 104 if (/\]$/) next
pascal@21750 105 if (/@strcpy\$qpxzct1/) isotazboot=0
pascal@21750 106 }
pascal@21750 107 if (/memtop/) isotazboot=2
pascal@21750 108 if (isotazboot == 2) { # TAZBOOT.LST
pascal@21750 109 if (/DGROUP:_base_himem\+2,dx/) print " mov bx,offset _base_himem"
pascal@21750 110 sub(/DGROUP:_base_himem,/,"[bx],")
pascal@21750 111 sub(/DGROUP:_base_himem\+2,/,"[bx+2],")
pascal@21750 112 sub(/DGROUP:_base_himem\+3,/,"[bx+3],")
pascal@21752 113 if (/word ptr \[bx\+2\],0/) {
pascal@21752 114 print s
pascal@21752 115 hold=0
pascal@21752 116 print " mov bx,word ptr [bx+2]"
pascal@21752 117 $0=" or bx,bx"
pascal@21752 118 }
pascal@21752 119 if (/\[bp-4\],ax/) sub(/ax/,"bx")
pascal@21752 120 if (/ax,word ptr \[bx\+2\]/ || /bx,ax/) next
pascal@21750 121 if (/@strcmp\$qpxzct1/) isotazboot=0
pascal@21750 122 }
pascal@21751 123 if (/static void addinitrd/) isotazboot=100
pascal@21751 124 if (isotazboot == 100) { # TAZBOOT.LST
pascal@21751 125 if (/cx,ax/) {
pascal@21751 126 print " xchg ax,si"
pascal@21751 127 print " push di"
pascal@21751 128 print " mov di,offset _isostate+4"
pascal@21751 129 print " movsw"
pascal@21751 130 print " movsw"
pascal@21751 131 print " movsw"
pascal@21751 132 print " movsw"
pascal@21751 133 $0=" pop di"
pascal@21751 134 }
pascal@21751 135 if (/mov/ && !/si/ && !/cl/) next
pascal@21751 136 if (/initrd.size \+=/) isotazboot=101
pascal@21751 137 }
pascal@21751 138 if (isotazboot > 100) { # TAZBOOT.LST
pascal@21751 139 if (/m->next_chunk = next_chunk/) isotazboot=101
pascal@21751 140 if (/load_initrd/) isotazboot=102
pascal@21751 141 if (/push si/ && isotazboot == 102) next
pascal@21751 142 if (/pop si/ && isotazboot == 102) next
pascal@21750 143 sub(/\[si\]/,"[bx]")
pascal@21751 144 sub(/push si$/,"push bx")
pascal@21750 145 sub(/si,/,"bx,")
pascal@21750 146 sub(/si\+/,"bx+")
pascal@21750 147 if (/mov cx,ax/) $0=" xchg ax,bx"
pascal@21750 148 if (/bx,cx/) next
pascal@21750 149 sub(/cx/,"bx")
pascal@21751 150 sub(/DGROUP:_imgs\+38$/,"[bx+38-32]")
pascal@21751 151 sub(/DGROUP:_imgs\+40$/,"[bx+40-32]")
pascal@21750 152 if (/static void bootiso/) isotazboot=0
pascal@21750 153 }
pascal@21729 154 if (wascall) {
pascal@21729 155 if (rcall != "") {
pascal@21729 156 if (/,ax$/) print " mov " rcall ",ax"
pascal@21729 157 else print " xchg ax," rcall
pascal@21729 158 wascall=0
pascal@21729 159 }
pascal@21729 160 else if (/^ mov .i,ax$/) {
pascal@21729 161 split($2,y,",")
pascal@21729 162 rcall=y[1]
pascal@21729 163 next
pascal@21729 164 }
pascal@21729 165 else wascall=0
pascal@21729 166 }
pascal@21729 167 if (/^ call /) { wascall=1; rcall="" }
pascal@20458 168 if (hold == 0) {
pascal@20458 169 s=$0
pascal@20534 170 if (/^ mov .[ix],bx$/ || /^ mov .[ix],.i$/) {
pascal@20543 171 r=$2; kept=0
pascal@20458 172 hold=1; split($2,regs,","); next
pascal@20458 173 }
pascal@21729 174 if (/^ inc e?.[ixhl]/ || /^ dec e?.[ixhl]/) {
pascal@20458 175 hold=2; r=$2; next
pascal@20458 176 }
pascal@20458 177 if (/^ mov [abcds][ix],/ && ! /,.s/) {
pascal@20458 178 hold=3; split($2,regs,","); next
pascal@20458 179 }
pascal@20458 180 if (/^ movzx eax,ax$/) { hold=4; next }
pascal@20544 181 if (/^ cmp word ptr/ || /^ cmp [bcd]x,/) {
pascal@20543 182 split($0,regs,",")
pascal@20543 183 if (isnum(regs[2]) && regs[2] != 0 &&
pascal@20543 184 (regs[2] % 256) == 0) {
pascal@20549 185 hold=5; next
pascal@20543 186 }
pascal@20543 187 }
pascal@20630 188 if (/^ mov ax,cs$/) { hold=6; kept=0; next }
pascal@20630 189 if (/^ mov cl,4$/) { hold=7; next }
pascal@20630 190 if (/^ cmp word ptr DGROUP:.*,0$/) {
pascal@20630 191 hold=8; split($2,regs,","); next
pascal@20630 192 }
pascal@20634 193 if (/^ cbw/) { hold=11; kept=0; next }
pascal@20634 194 if (/^ add [abcds][ix],2$/) {
pascal@20634 195 split($2,regs,","); hold=12; next
pascal@20634 196 }
pascal@20634 197 if (/^ sub [abcds][ix],2$/) {
pascal@20634 198 split($2,regs,","); hold=13; next
pascal@20634 199 }
pascal@21569 200 if (/^ push dx$/) {
pascal@21569 201 hold=14; next;
pascal@21569 202 }
pascal@20458 203 }
pascal@20458 204 else if (hold == 1) {
pascal@20543 205 if (/^ ;/) { line[kept++]=$0; next }
pascal@20458 206 hold=0; split($2,args,","); op=""
pascal@20458 207 if ($1 == "add") op="+"
pascal@20458 208 if ($1 == "sub") op="-"
pascal@20751 209 if ($1 == "inc") { op="+"; args[2]="1"; }
pascal@20751 210 if ($1 == "dec") { op="-"; args[2]="1"; }
pascal@20543 211 if (op != "" && regs[1] == args[1]) {
pascal@20543 212 if (isnum(args[2])) {
pascal@20630 213 for (i = kept++; i > 0; i--) line[i] = line[i-1]
pascal@20630 214 line[0] = "\tlea\t" regs[1] ",[" regs[2] op args[2] "]"
pascal@20630 215 hold=10; next
pascal@20543 216 }
pascal@20543 217 line[kept++]=$0
pascal@20543 218 hold=1
pascal@20458 219 next
pascal@20458 220 }
pascal@20520 221 if (/^ pop [ds]i/ && regs[2] ~ /^[ds]i$/) {
pascal@20520 222 print " xchg " r
pascal@20520 223 }
pascal@20543 224 else print s
pascal@20543 225 for (i = 0; i < kept; i++) print line[i]; kept=0
pascal@20458 226 }
pascal@20458 227 else if (hold == 2) {
pascal@21729 228 split($0,args,",")
pascal@21729 229 if (/^ mov / && r == args[2]) { print s; s=$0; next }
pascal@21729 230 split($2,args,",")
pascal@21729 231 hold=0; print s
pascal@20458 232 if ($1 == "or" && r == args[1] && r == args[2]) next # don't clear C ...
pascal@20458 233 }
pascal@20458 234 else if (hold == 3) {
pascal@20458 235 hold=0
pascal@21576 236 if (/^ call / && regs[2] == "ax") s=" xchg ax," regs[1]
pascal@20542 237 if (/^ add [abcds][ix],/) {
pascal@20458 238 split($2,regs2,",")
pascal@20458 239 if (regs[1] == regs2[1] && (regs2[2] == "offset" || isnum(regs2[2]))) {
pascal@20549 240 t=$0; sub(/mov/,$1,s); sub(/add/,"mov",t)
pascal@20458 241 print t; print s; next
pascal@20458 242 }
pascal@20458 243 }
pascal@20458 244 print s
pascal@20458 245 }
pascal@20458 246 else if (hold == 4) {
pascal@20458 247 hold=0
pascal@20458 248 if (/^ push eax$/) {
pascal@20458 249 print " push 0"; print " push ax"; next
pascal@20458 250 } else { print s }
pascal@20458 251 }
pascal@20543 252 else if (hold == 5) {
pascal@20543 253 hold=0
pascal@20543 254 if ($1 == "jae" || $1 == "jb") {
pascal@20544 255 sub(/word ptr/,"byte ptr",s); sub(/x,/,"h,",s) ||
pascal@20543 256 sub(/\],/,"+1],",s) || sub(/,/,"+1,",s)
pascal@20543 257 s = s "/256"
pascal@20543 258 }
pascal@20543 259 print s
pascal@20543 260 }
pascal@20630 261 else if (hold == 6) {
pascal@20630 262 if (($1 == "and" || $1 == "add") && $2 ~ /^ax,/) {
pascal@20630 263 line[kept++]=$0
pascal@20630 264 next
pascal@20630 265 }
pascal@20630 266 p=$0
pascal@20630 267 if (/^ movzx eax,ax$/) {
pascal@20630 268 s=" mov eax,cs"; p=""
pascal@20630 269 }
pascal@20630 270 print s
pascal@20630 271 for (i = 0; i < kept; i++) print line[i]; kept=0
pascal@20630 272 if (p != "") print p
pascal@20630 273 hold=0; next
pascal@20630 274 }
pascal@20630 275 else if (hold == 7) {
pascal@20458 276 hold=0
pascal@20520 277 if (/^ call near ptr N_LXURSH@$/) {
pascal@20520 278 print " extrn N_LXURSH@4:near"
pascal@20520 279 print " call near ptr N_LXURSH@4"
pascal@20520 280 next
pascal@20520 281 }
pascal@20528 282 if (/^ call near ptr N_LXLSH@$/) {
pascal@20528 283 print " extrn N_LXLSH@4:near"
pascal@20528 284 print " call near ptr N_LXLSH@4"
pascal@20528 285 next
pascal@20528 286 }
pascal@20520 287 print s
pascal@20458 288 }
pascal@20630 289 else if (hold == 8) {
pascal@20630 290 if ($1 == "je" || $1 == "jne") { p=$0; hold=9; next }
pascal@20630 291 hold=0
pascal@20630 292 print s
pascal@20630 293 }
pascal@20630 294 else if (hold == 9) {
pascal@20630 295 hold=0; split($2,args,",")
pascal@20630 296 if (/^ mov ax,/ && args[2] == regs[1]) {
pascal@20630 297 print; print " or ax,ax"; print p; next
pascal@20630 298 }
pascal@20630 299 print s; print p;
pascal@20630 300 }
pascal@20630 301 else if (hold == 10) {
pascal@20751 302 split($2,args,","); op=""
pascal@20751 303 if ($1 == "add") op="+"
pascal@20751 304 if ($1 == "sub") op="-"
pascal@20751 305 if ($1 == "inc") { op="+"; args[2]="1"; }
pascal@20751 306 if ($1 == "dec") { op="-"; args[2]="1"; }
pascal@20751 307 if (op != "" && isnum(args[2])) {
pascal@20751 308 split(line[0],reg,",")
pascal@20751 309 if (substr(reg[1],length(reg[1])-1,2) == args[1]) {
pascal@20751 310 line[0] = substr(line[0],1,length(line[0])-1) op args[2] "]"
pascal@20751 311 next
pascal@20751 312 }
pascal@20751 313 }
pascal@20630 314 hold=0
pascal@20630 315 if (/^ mov [sd]i,ax$/) {
pascal@20630 316 split($2,args,",")
pascal@20630 317 for (i = 0; i < kept; i++) {
pascal@20630 318 sub(/ax/,args[1],line[i]); print line[i]
pascal@20630 319 }
pascal@20630 320 next
pascal@20630 321 }
pascal@20630 322 for (i = 0; i < kept; i++) print line[i]
pascal@20630 323 }
pascal@20634 324 else if (hold == 11) {
pascal@20634 325 if (/^ inc ax$/ || /^ dec ax$/) {
pascal@20634 326 line[kept++]=$0; next
pascal@20634 327 }
pascal@20634 328 split($2,args,",")
pascal@20634 329 if (/^ mov cl,/) {
pascal@20634 330 split($2,args,",")
pascal@20634 331 if (args[2] >= 8) {
pascal@20634 332 line[kept++]=$0; next
pascal@20634 333 }
pascal@20634 334 }
pascal@20634 335 if (!/^ shl ax,/ || (args[2] != "cl" && args[2] < 8)) {
pascal@20634 336 print " cbw "
pascal@20634 337 }
pascal@20634 338 for (i = 0; i < kept; i++) print line[i]
pascal@20634 339 hold=kept=0
pascal@20634 340 }
pascal@20634 341 else if (hold == 12) {
pascal@20634 342 hold=0
pascal@20634 343 if ($1 != "adc" && $1 != "sbb" && ! /^ jn?[abc]/) {
pascal@20634 344 print " inc " regs[1]
pascal@20634 345 print " inc " regs[1]
pascal@20634 346 }
pascal@20634 347 else print " add " regs[1] ",2"
pascal@20634 348 }
pascal@20634 349 else if (hold == 13) {
pascal@20634 350 hold=0
pascal@20634 351 if ($1 != "adc" && $1 != "sbb" && ! /^ jn?[abc]/) {
pascal@20634 352 print " dec " regs[1]
pascal@20634 353 print " dec " regs[1]
pascal@20634 354 }
pascal@20634 355 else print " sub " regs[1] ",2"
pascal@20634 356 }
pascal@21569 357 else if (hold == 14) {
pascal@21569 358 if (/^ push ax$/) { hold++; next; }
pascal@21569 359 print " push dx";
pascal@21569 360 hold=0;
pascal@21569 361 }
pascal@21569 362 else if (hold == 15) {
pascal@21569 363 if (/^ pop eax$/) { hold++; next; }
pascal@21569 364 print " push dx";
pascal@21569 365 print " push ax";
pascal@21569 366 hold=0;
pascal@21569 367 }
pascal@21569 368 else if (hold == 16) {
pascal@21569 369 hold=0;
pascal@21569 370 if (/^ shr eax,16$/) { print " xchg ax,dx"; next; }
pascal@21569 371 print " push dx";
pascal@21569 372 print " push ax";
pascal@21569 373 print " pop eax";
pascal@21569 374 }
pascal@21569 375 else if (hold == 17) {
pascal@21569 376 hold=0;
pascal@21569 377 if (/^ cmp ax,-1$/) { print " inc ax"; next; }
pascal@21569 378 }
pascal@21576 379 if (/^ call near ptr @fileexist\$/ || # return boolean :
pascal@21576 380 /^ call near ptr @isoreaddir\$/ || # 0=true, -1=false
pascal@21628 381 /^ call near ptr @isoreset\$/ ||
pascal@21628 382 /^ call near ptr @isoopen\$/ ||
pascal@21628 383 /^ call near ptr @isoreadsector\$/ ||
pascal@21628 384 /^ call near ptr @strhead\$/ ||
pascal@21576 385 /^ call near ptr @argstr\$/ ||
pascal@21576 386 /^ call near ptr @argnum\$/) { print; hold=17; next; }
pascal@20458 387 s=$0
pascal@20458 388 # These optimisation may break ZF or CF
pascal@20485 389 if (/^ sub sp,2$/) { print " push ax"; next }
pascal@20485 390 if (/^ sub sp,4$/) { print " push ax"; print " push ax"; next }
pascal@20485 391 if (/^ add sp,4$/) { print " pop cx"; print " pop cx"; next }
pascal@20458 392 if (/^ mov d*word ptr .*,0$/ || /^ mov dword ptr .*,large 0$/) {
pascal@20458 393 sub(/mov/,"and",s); print s; next # slower
pascal@20458 394 }
pascal@20458 395 if (/^ mov d*word ptr .*,-1$/ || /^ mov dword ptr .*,large -1$/) {
pascal@20458 396 sub(/mov/,"or",s); print s; next # slower
pascal@20458 397 }
pascal@20458 398 if (/^ or .*,0$/ || /^ and .*,-1$/) next
pascal@20458 399 if (/^ or [abcd]x,/) {
pascal@20458 400 split($2,args,",")
pascal@20458 401 if (isnum(args[2]) && args[2] >= 0 && args[2] < 256) {
pascal@20458 402 print " or " substr(args[1],1,1) "l," args[2]; next
pascal@20458 403 }
pascal@20458 404 }
pascal@20458 405 if (/^ and [abcd]x,/) {
pascal@20458 406 split($2,args,",")
pascal@20459 407 if (isnum(args[2]) && args[2] >= -256 && args[2] < 0) {
pascal@20458 408 print " and " substr(args[1],1,1) "l," args[2]; next
pascal@20458 409 }
pascal@20458 410 }
pascal@20458 411 if (/^ or e[abcd]x,/) {
pascal@20458 412 split($2,args,",")
pascal@20458 413 if (args[2] == "large") { args[2] = $3 }
pascal@20458 414 if (isnum(args[2]) && args[2] >= 0 && args[2] < 256) {
pascal@20458 415 print " or " substr(args[1],2,1) "l," args[2]; next
pascal@20458 416 }
pascal@20458 417 }
pascal@20458 418 if (/^ and e[abcd]x,/) {
pascal@20458 419 split($2,args,",")
pascal@20458 420 if (args[2] == "large") { args[2] = $3 }
pascal@20459 421 if (isnum(args[2]) && args[2] >= -256 && args[2] < 0) {
pascal@20458 422 print " and " substr(args[1],2,1) "l," args[2]; next
pascal@20458 423 }
pascal@20458 424 }
pascal@20458 425 if (/^ or e[abcds][ix],/) {
pascal@20458 426 split($2,args,",")
pascal@20458 427 if (args[2] == "large") { args[2] = $3 }
pascal@20458 428 if (isnum(args[2]) && args[2] >= 0 && args[2] < 65536) {
pascal@20458 429 print " or " substr(args[1],2) "," args[2]; next
pascal@20458 430 }
pascal@20458 431 }
pascal@20458 432 if (/^ and e[abcds][ix],/) {
pascal@20458 433 split($2,args,",")
pascal@20458 434 if (args[2] == "large") { args[2] = $3 }
pascal@20459 435 if (isnum(args[2]) && args[2] >= -65536 && args[2] < 0) {
pascal@20458 436 print " and " substr(args[1],2) "," args[2]; next
pascal@20458 437 }
pascal@20458 438 }
pascal@20543 439 if (/^ add word ptr/ || /^ sub word ptr/ ||
pascal@20544 440 /^ add [bcd]x,/ || /^ sub [bcd]x,/) {
pascal@20542 441 split($0,args,",")
pascal@20542 442 if (isnum(args[2]) && (args[2] % 256 == 0)) {
pascal@20544 443 sub(/word ptr/,"byte ptr",s); sub(/x,/,"h,",s) ||
pascal@20543 444 sub(/\],/,"+1],",s) || sub(/,/,"+1,",s)
pascal@20542 445 print s "/256"; next
pascal@20542 446 }
pascal@20542 447 }
pascal@20546 448 if (/^ add dword ptr/ || /^ sub dword ptr/) {
pascal@20458 449 split($0,args,",")
pascal@20543 450 if (args[2] == "large") { args[2] = $3 }
pascal@20458 451 if (isnum(args[2])) {
pascal@20546 452 if (args[2] % 16777216 == 0) {
pascal@20546 453 sub(/dword/,"byte",s)
pascal@20543 454 sub(/\],/,"+3],",s) || sub(/,/,"+3,",s)
pascal@20458 455 print s "/16777216"; next
pascal@20458 456 }
pascal@20458 457 if (args[2] % 65536 == 0) {
pascal@20546 458 sub(/dword/,"word",s)
pascal@20543 459 sub(/\],/,"+2],",s) || sub(/,/,"+2,",s)
pascal@20458 460 print s "/65536"; next
pascal@20458 461 }
pascal@20458 462 }
pascal@20458 463 }
pascal@20458 464 if (/^ mov e.x,/) {
pascal@20458 465 split($2,args,",")
pascal@20458 466 r=args[1]
pascal@20458 467 if (args[2] == "large") { args[2] = $3 }
pascal@20458 468 if (isnum(args[2]) && args[2] % 65536 == args[2]) {
pascal@20458 469 if (args[2] % 256 == args[2] || args[2] % 256 == 0) {
pascal@20458 470 print " xor " r "," r
pascal@20458 471 if (args[2] == 0) next
pascal@20458 472 x=" mov " substr(r,2,1)
pascal@20458 473 if (args[2] % 256 == 0) {
pascal@20458 474 print x "h," args[2] "/256"
pascal@20458 475 }
pascal@20458 476 else { print x "l," args[2] }
pascal@20458 477 next
pascal@20458 478 }
pascal@20458 479 }
pascal@20458 480 }
pascal@21576 481 if (afterjmp) print ";" $0
pascal@21576 482 else print
pascal@21576 483 if (/^ jmp /) afterjmp=1
pascal@20458 484 }