From 2655a4a91d1d2e98cc9ab9c54e70d4eb49c735d6 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Tue, 30 Jun 2020 14:54:30 -0700 Subject: 6602 --- html/apps/mu.subx.html | 162 ++++++++++++++++++++++++------------------------- 1 file changed, 81 insertions(+), 81 deletions(-) (limited to 'html/apps/mu.subx.html') diff --git a/html/apps/mu.subx.html b/html/apps/mu.subx.html index 35b83337..13b37842 100644 --- a/html/apps/mu.subx.html +++ b/html/apps/mu.subx.html @@ -5620,7 +5620,7 @@ if ('onhashchange' in window) { 6088 6089 $parse-mu:error2: 6090 # error(vars->top " vars not reclaimed after fn '" new-function->name "'\n") - 6091 (print-int32-buffered *(ebp+0xc) *ebx) + 6091 (write-int32-hex-buffered *(ebp+0xc) *ebx) 6092 (write-buffered *(ebp+0xc) " vars not reclaimed after fn '") 6093 (write-slice-buffered *(ebp+0xc) *eax) # Function-name 6094 (write-buffered *(ebp+0xc) "'\n") @@ -6528,7 +6528,7 @@ if ('onhashchange' in window) { 6996 8d/copy-address *(esi+ebx+0xc) 3/r32/ebx 6997 { 6998 #? (write-buffered Stderr " ") - 6999 #? (print-int32-buffered Stderr %ecx) + 6999 #? (write-int32-hex-buffered Stderr %ecx) 7000 #? (write-buffered Stderr "\n") 7001 #? (flush Stderr) 7002 # if (curr >= max) return -1 @@ -6550,7 +6550,7 @@ if ('onhashchange' in window) { 7018 89/<- %eax 1/r32/ecx 7019 $pos-slice:end: 7020 #? (write-buffered Stderr "=> ") - 7021 #? (print-int32-buffered Stderr %eax) + 7021 #? (write-int32-hex-buffered Stderr %eax) 7022 #? (write-buffered Stderr "\n") 7023 # . restore registers 7024 5e/pop-to-esi @@ -7349,7 +7349,7 @@ if ('onhashchange' in window) { 7817 (write %edx "$") 7818 (write %edx %eax) 7819 (write %edx ":") - 7820 (print-int32 %edx *Next-block-index) + 7820 (write-int32-hex %edx *Next-block-index) 7821 ff 0/subop/increment *Next-block-index 7822 # var s/eax: slice = {name->data, name->data + name->write} (clobbering edx) 7823 # . eax = name->write @@ -7366,9 +7366,9 @@ if ('onhashchange' in window) { 7834 (new-literal Heap %eax *(ebp+0xc)) 7835 #? 8b/-> *(ebp+0xc) 0/r32/eax 7836 #? (write-buffered Stderr "type allocid in caller after new-literal: ") - 7837 #? (print-int32-buffered Stderr *(eax+8)) + 7837 #? (write-int32-hex-buffered Stderr *(eax+8)) 7838 #? (write-buffered Stderr " for var ") - 7839 #? (print-int32-buffered Stderr %eax) + 7839 #? (write-int32-hex-buffered Stderr %eax) 7840 #? (write-buffered Stderr Newline) 7841 #? (flush Stderr) 7842 $new-block-name:end: @@ -7883,7 +7883,7 @@ if ('onhashchange' in window) { 8351 (lookup-or-create-constant %eax %ecx %esi) 8352 #? (lookup *esi *(esi+4)) 8353 #? (write-buffered Stderr "creating new output var ") - 8354 #? (print-int32-buffered Stderr %eax) + 8354 #? (write-int32-hex-buffered Stderr %eax) 8355 #? (write-buffered Stderr " for field called ") 8356 #? (write-slice-buffered Stderr %ecx) 8357 #? (write-buffered Stderr "; var name ") @@ -8010,7 +8010,7 @@ if ('onhashchange' in window) { 8478 81 4/subop/and %ecx 0xff/imm32 8479 # if is-decimal-digit?(c) return new var(name) 8480 { - 8481 (is-decimal-digit? %ecx) # => eax + 8481 (is-decimal-digit? %ecx) # => eax 8482 3d/compare-eax-and 0/imm32/false 8483 74/jump-if-= break/disp8 8484 $lookup-var-or-literal:literal: @@ -8640,7 +8640,7 @@ if ('onhashchange' in window) { 9108 #? (write-buffered Stderr " at ") 9109 #? 8b/-> *(ebp+0x14) 1/r32/ecx 9110 #? (lookup *ecx *(ecx+4)) # => eax - 9111 #? (print-int32-buffered Stderr %eax) + 9111 #? (write-int32-hex-buffered Stderr %eax) 9112 #? (write-buffered Stderr Newline) 9113 #? (flush Stderr) 9114 $new-var:end: @@ -8986,14 +8986,14 @@ if ('onhashchange' in window) { 9454 #? 8b/-> *(ebp+0x10) 0/r32/eax 9455 #? (write-buffered Stderr "@") 9456 #? (lookup *eax *(eax+4)) - 9457 #? (print-int32-buffered Stderr %eax) + 9457 #? (write-int32-hex-buffered Stderr %eax) 9458 #? (lookup *eax *(eax+4)) 9459 #? (write-buffered Stderr %eax) 9460 #? (write-buffered Stderr Newline) 9461 #? (flush Stderr) 9462 #? (write-buffered Stderr "offset: ") 9463 #? 8b/-> *(eax+0x14) 0/r32/eax - 9464 #? (print-int32-buffered Stderr %eax) + 9464 #? (write-int32-hex-buffered Stderr %eax) 9465 #? (write-buffered Stderr Newline) 9466 #? (flush Stderr) 9467 $lookup-or-create-constant:end: @@ -9075,9 +9075,9 @@ if ('onhashchange' in window) { 9543 # var tmp/eax: (addr typeinfo) = lookup(*out) 9544 (lookup *edi *(edi+4)) # => eax 9545 #? (write-buffered Stderr "created typeinfo at ") - 9546 #? (print-int32-buffered Stderr %eax) + 9546 #? (write-int32-hex-buffered Stderr %eax) 9547 #? (write-buffered Stderr " for type-id ") - 9548 #? (print-int32-buffered Stderr *(ebp+8)) + 9548 #? (write-int32-hex-buffered Stderr *(ebp+8)) 9549 #? (write-buffered Stderr Newline) 9550 #? (flush Stderr) 9551 # tmp->id = t @@ -9251,18 +9251,18 @@ if ('onhashchange' in window) { 9719 75/jump-if-!= break/disp8 9720 (allocate Heap *Typeinfo-entry-size %esi) 9721 #? (write-buffered Stderr "handle at ") - 9722 #? (print-int32-buffered Stderr %esi) + 9722 #? (write-int32-hex-buffered Stderr %esi) 9723 #? (write-buffered Stderr ": ") - 9724 #? (print-int32-buffered Stderr *esi) + 9724 #? (write-int32-hex-buffered Stderr *esi) 9725 #? (write-buffered Stderr " ") - 9726 #? (print-int32-buffered Stderr *(esi+4)) + 9726 #? (write-int32-hex-buffered Stderr *(esi+4)) 9727 #? (write-buffered Stderr Newline) 9728 #? (flush Stderr) 9729 #? (lookup *esi *(esi+4)) 9730 #? (write-buffered Stderr "created typeinfo fields at ") - 9731 #? (print-int32-buffered Stderr %esi) + 9731 #? (write-int32-hex-buffered Stderr %esi) 9732 #? (write-buffered Stderr " for ") - 9733 #? (print-int32-buffered Stderr *(ebp+8)) + 9733 #? (write-int32-hex-buffered Stderr *(ebp+8)) 9734 #? (write-buffered Stderr Newline) 9735 #? (flush Stderr) 9736 } @@ -9371,9 +9371,9 @@ if ('onhashchange' in window) { 9844 (lookup *ebx *(ebx+4)) # => eax 9845 8b/-> *(ebp-4) 1/r32/ecx 9846 #? (write-buffered Stderr "saving index ") - 9847 #? (print-int32-buffered Stderr %ecx) + 9847 #? (write-int32-hex-buffered Stderr %ecx) 9848 #? (write-buffered Stderr " at ") - 9849 #? (print-int32-buffered Stderr %edi) + 9849 #? (write-int32-hex-buffered Stderr %edi) 9850 #? (write-buffered Stderr Newline) 9851 #? (flush Stderr) 9852 89/<- *(eax+8) 1/r32/ecx # Typeinfo-entry-index @@ -9691,9 +9691,9 @@ if ('onhashchange' in window) { 10164 39/compare %ebx 2/r32/edx 10165 0f 8d/jump-if->= break/disp32 10166 #? (write-buffered Stderr "looking up index ") -10167 #? (print-int32-buffered Stderr %ebx) +10167 #? (write-int32-hex-buffered Stderr %ebx) 10168 #? (write-buffered Stderr " in ") -10169 #? (print-int32-buffered Stderr *(ebp+8)) +10169 #? (write-int32-hex-buffered Stderr *(ebp+8)) 10170 #? (write-buffered Stderr Newline) 10171 #? (flush Stderr) 10172 # var v/esi: (addr typeinfo-entry) @@ -9756,9 +9756,9 @@ if ('onhashchange' in window) { 10229 # if (v->index == idx) return v 10230 8b/-> *(eax+8) 3/r32/ebx # Typeinfo-entry-index 10231 #? (write-buffered Stderr "comparing ") -10232 #? (print-int32-buffered Stderr %ebx) +10232 #? (write-int32-hex-buffered Stderr %ebx) 10233 #? (write-buffered Stderr " and ") -10234 #? (print-int32-buffered Stderr *(ebp+0xc)) +10234 #? (write-int32-hex-buffered Stderr *(ebp+0xc)) 10235 #? (write-buffered Stderr Newline) 10236 #? (flush Stderr) 10237 39/compare *(ebp+0xc) 3/r32/ebx @@ -9772,7 +9772,7 @@ if ('onhashchange' in window) { 10245 b8/copy-to-eax 0/imm32 10246 $locate-typeinfo-entry-with-index:end: 10247 #? (write-buffered Stderr "returning ") -10248 #? (print-int32-buffered Stderr %eax) +10248 #? (write-int32-hex-buffered Stderr %eax) 10249 #? (write-buffered Stderr Newline) 10250 #? (flush Stderr) 10251 # . restore registers @@ -9833,22 +9833,22 @@ if ('onhashchange' in window) { 10306 (lookup *(esi+4) *(esi+8)) # Typeinfo-fields Typeinfo-fields => eax 10307 89/<- %ecx 0/r32/eax 10308 (write-buffered Stderr "id:") -10309 (print-int32-buffered Stderr *esi) +10309 (write-int32-hex-buffered Stderr *esi) 10310 (write-buffered Stderr "\n") 10311 (write-buffered Stderr "fields @ ") -10312 (print-int32-buffered Stderr %ecx) +10312 (write-int32-hex-buffered Stderr %ecx) 10313 (write-buffered Stderr Newline) 10314 (flush Stderr) 10315 (write-buffered Stderr " write: ") -10316 (print-int32-buffered Stderr *ecx) +10316 (write-int32-hex-buffered Stderr *ecx) 10317 (write-buffered Stderr Newline) 10318 (flush Stderr) 10319 (write-buffered Stderr " read: ") -10320 (print-int32-buffered Stderr *(ecx+4)) +10320 (write-int32-hex-buffered Stderr *(ecx+4)) 10321 (write-buffered Stderr Newline) 10322 (flush Stderr) 10323 (write-buffered Stderr " size: ") -10324 (print-int32-buffered Stderr *(ecx+8)) +10324 (write-int32-hex-buffered Stderr *(ecx+8)) 10325 (write-buffered Stderr Newline) 10326 (flush Stderr) 10327 # var table-size/edx: int = table->write @@ -9864,30 +9864,30 @@ if ('onhashchange' in window) { 10337 0f 83/jump-if-addr>= break/disp32 10338 (write-buffered Stderr " row:\n") 10339 (write-buffered Stderr " key: ") -10340 (print-int32-buffered Stderr *ecx) +10340 (write-int32-hex-buffered Stderr *ecx) 10341 (write-buffered Stderr ",") -10342 (print-int32-buffered Stderr *(ecx+4)) +10342 (write-int32-hex-buffered Stderr *(ecx+4)) 10343 (write-buffered Stderr " = '") 10344 (lookup *ecx *(ecx+4)) 10345 (write-buffered Stderr %eax) 10346 (write-buffered Stderr "' @ ") -10347 (print-int32-buffered Stderr %eax) +10347 (write-int32-hex-buffered Stderr %eax) 10348 (write-buffered Stderr Newline) 10349 (flush Stderr) 10350 (write-buffered Stderr " value: ") -10351 (print-int32-buffered Stderr *(ecx+8)) +10351 (write-int32-hex-buffered Stderr *(ecx+8)) 10352 (write-buffered Stderr ",") -10353 (print-int32-buffered Stderr *(ecx+0xc)) +10353 (write-int32-hex-buffered Stderr *(ecx+0xc)) 10354 (write-buffered Stderr " = typeinfo-entry@") 10355 (lookup *(ecx+8) *(ecx+0xc)) -10356 (print-int32-buffered Stderr %eax) +10356 (write-int32-hex-buffered Stderr %eax) 10357 (write-buffered Stderr Newline) 10358 (flush Stderr) 10359 (write-buffered Stderr " input var@") 10360 (dump-var 5 %eax) 10361 (lookup *(ecx+8) *(ecx+0xc)) 10362 (write-buffered Stderr " index: ") -10363 (print-int32-buffered Stderr *(eax+8)) +10363 (write-int32-hex-buffered Stderr *(eax+8)) 10364 (write-buffered Stderr Newline) 10365 (flush Stderr) 10366 (write-buffered Stderr " output var@") @@ -9922,12 +9922,12 @@ if ('onhashchange' in window) { 10395 # eax = v 10396 8b/-> *(ebp+0xc) 0/r32/eax 10397 # -10398 (print-int32-buffered Stderr *eax) +10398 (write-int32-hex-buffered Stderr *eax) 10399 (write-buffered Stderr ",") -10400 (print-int32-buffered Stderr *(eax+4)) +10400 (write-int32-hex-buffered Stderr *(eax+4)) 10401 (write-buffered Stderr "->") 10402 (lookup *eax *(eax+4)) -10403 (print-int32-buffered Stderr %eax) +10403 (write-int32-hex-buffered Stderr %eax) 10404 (write-buffered Stderr Newline) 10405 (flush Stderr) 10406 { @@ -9936,12 +9936,12 @@ if ('onhashchange' in window) { 10409 (emit-indent Stderr *(ebp+8)) 10410 (write-buffered Stderr "name: ") 10411 89/<- %ebx 0/r32/eax -10412 (print-int32-buffered Stderr *ebx) # Var-name +10412 (write-int32-hex-buffered Stderr *ebx) # Var-name 10413 (write-buffered Stderr ",") -10414 (print-int32-buffered Stderr *(ebx+4)) # Var-name +10414 (write-int32-hex-buffered Stderr *(ebx+4)) # Var-name 10415 (write-buffered Stderr "->") 10416 (lookup *ebx *(ebx+4)) # Var-name -10417 (print-int32-buffered Stderr %eax) +10417 (write-int32-hex-buffered Stderr %eax) 10418 { 10419 3d/compare-eax-and 0/imm32 10420 74/jump-if-= break/disp8 @@ -9952,23 +9952,23 @@ if ('onhashchange' in window) { 10425 (flush Stderr) 10426 (emit-indent Stderr *(ebp+8)) 10427 (write-buffered Stderr "block depth: ") -10428 (print-int32-buffered Stderr *(ebx+0x10)) # Var-block-depth +10428 (write-int32-hex-buffered Stderr *(ebx+0x10)) # Var-block-depth 10429 (write-buffered Stderr Newline) 10430 (flush Stderr) 10431 (emit-indent Stderr *(ebp+8)) 10432 (write-buffered Stderr "stack offset: ") -10433 (print-int32-buffered Stderr *(ebx+0x14)) # Var-offset +10433 (write-int32-hex-buffered Stderr *(ebx+0x14)) # Var-offset 10434 (write-buffered Stderr Newline) 10435 (flush Stderr) 10436 (emit-indent Stderr *(ebp+8)) 10437 (write-buffered Stderr "reg: ") -10438 (print-int32-buffered Stderr *(ebx+0x18)) # Var-register +10438 (write-int32-hex-buffered Stderr *(ebx+0x18)) # Var-register 10439 (write-buffered Stderr ",") -10440 (print-int32-buffered Stderr *(ebx+0x1c)) # Var-register +10440 (write-int32-hex-buffered Stderr *(ebx+0x1c)) # Var-register 10441 (write-buffered Stderr "->") 10442 (flush Stderr) 10443 (lookup *(ebx+0x18) *(ebx+0x1c)) # Var-register -10444 (print-int32-buffered Stderr %eax) +10444 (write-int32-hex-buffered Stderr %eax) 10445 { 10446 3d/compare-eax-and 0/imm32 10447 74/jump-if-= break/disp8 @@ -11151,10 +11151,10 @@ if ('onhashchange' in window) { 11624 # var t/ecx: (addr tree type-id) = lookup(v->type) 11625 8b/-> *(ebp+8) 1/r32/ecx 11626 #? (write-buffered Stderr "size-of ") -11627 #? (print-int32-buffered Stderr %ecx) +11627 #? (write-int32-hex-buffered Stderr %ecx) 11628 #? (write-buffered Stderr Newline) 11629 #? (write-buffered Stderr "type allocid: ") -11630 #? (print-int32-buffered Stderr *(ecx+8)) +11630 #? (write-int32-hex-buffered Stderr *(ecx+8)) 11631 #? (write-buffered Stderr Newline) 11632 #? (flush Stderr) 11633 (lookup *(ecx+8) *(ecx+0xc)) # Var-type Var-type => eax @@ -11506,9 +11506,9 @@ if ('onhashchange' in window) { 11979 #? (write-buffered Stderr "setting offset of fn inout ") 11980 #? (write-buffered Stderr %eax) 11981 #? (write-buffered Stderr "@") -11982 #? (print-int32-buffered Stderr %ebx) +11982 #? (write-int32-hex-buffered Stderr %ebx) 11983 #? (write-buffered Stderr " to ") -11984 #? (print-int32-buffered Stderr %edx) +11984 #? (write-int32-hex-buffered Stderr %edx) 11985 #? (write-buffered Stderr Newline) 11986 #? (flush Stderr) 11987 # v->offset = next-offset @@ -11648,7 +11648,7 @@ if ('onhashchange' in window) { 12217 #? (lookup *ecx *(ecx+4)) 12218 #? (write-buffered Stderr %eax) 12219 #? (write-buffered Stderr " at depth ") -12220 #? (print-int32-buffered Stderr *(ecx+0x10)) +12220 #? (write-int32-hex-buffered Stderr *(ecx+0x10)) 12221 #? (write-buffered Stderr Newline) 12222 #? (flush Stderr) 12223 # ensure that v is in a register @@ -11956,7 +11956,7 @@ if ('onhashchange' in window) { 12525 $emit-cleanup-code-until-depth:reclaim-var-on-stack: 12526 (emit-indent *(ebp+8) *Curr-block-depth) 12527 (write-buffered *(ebp+8) "81 0/subop/add %esp ") -12528 (print-int32-buffered *(ebp+8) %eax) +12528 (write-int32-hex-buffered *(ebp+8) %eax) 12529 (write-buffered *(ebp+8) "/imm32\n") 12530 } 12531 $emit-cleanup-code-until-depth:continue: @@ -12037,7 +12037,7 @@ if ('onhashchange' in window) { 12606 # 12607 (emit-indent *(ebp+8) *Curr-block-depth) 12608 (write-buffered *(ebp+8) "81 0/subop/add %esp ") -12609 (print-int32-buffered *(ebp+8) %eax) +12609 (write-int32-hex-buffered *(ebp+8) %eax) 12610 (write-buffered *(ebp+8) "/imm32\n") 12611 } 12612 $emit-cleanup-code-until-target:continue: @@ -12575,11 +12575,11 @@ if ('onhashchange' in window) { 13144 81 5/subop/subtract %edx 4/imm32 13145 (emit-indent *(ebp+8) *Curr-block-depth) 13146 (write-buffered *(ebp+8) "(push-n-zero-bytes ") -13147 (print-int32-buffered *(ebp+8) %edx) +13147 (write-int32-hex-buffered *(ebp+8) %edx) 13148 (write-buffered *(ebp+8) ")\n") 13149 (emit-indent *(ebp+8) *Curr-block-depth) 13150 (write-buffered *(ebp+8) "68/push ") -13151 (print-int32-buffered *(ebp+8) %edx) +13151 (write-int32-hex-buffered *(ebp+8) %edx) 13152 (write-buffered *(ebp+8) "/imm32\n") 13153 eb/jump $emit-subx-var-def:end/disp8 13154 } @@ -12750,7 +12750,7 @@ if ('onhashchange' in window) { 13319 (write-buffered *(ebp+8) "31/xor %edx 2/r32/edx\n") 13320 (emit-indent *(ebp+8) *Curr-block-depth) 13321 (write-buffered *(ebp+8) "b9/copy-to-ecx ") -13322 (print-int32-buffered *(ebp+8) %ecx) +13322 (write-int32-hex-buffered *(ebp+8) %ecx) 13323 (write-buffered *(ebp+8) "/imm32\n") 13324 (emit-indent *(ebp+8) *Curr-block-depth) 13325 (write-buffered *(ebp+8) "f7 7/subop/idiv-eax-edx-by %ecx\n") @@ -12857,13 +12857,13 @@ if ('onhashchange' in window) { 13426 74/jump-if-= break/disp8 13427 $emit-save-size-to:emit-base-from-stack: 13428 (write-buffered *(ebp+8) "(ebp+") -13429 (print-int32-buffered *(ebp+8) *(ebx+0x14)) # Var-offset +13429 (write-int32-hex-buffered *(ebp+8) *(ebx+0x14)) # Var-offset 13430 (write-buffered *(ebp+8) ")") 13431 } 13432 $emit-save-size-to:emit-output: 13433 (write-buffered *(ebp+8) " ") 13434 (get Mu-registers *(ebp+0x10) 0xc "Mu-registers") # => eax -13435 (print-int32-buffered *(ebp+8) *eax) +13435 (write-int32-hex-buffered *(ebp+8) *eax) 13436 (write-buffered *(ebp+8) "/r32\n") 13437 $emit-save-size-to:end: 13438 # . restore registers @@ -12886,7 +12886,7 @@ if ('onhashchange' in window) { 13455 (write-buffered *(ebp+8) *(ebp+0xc)) 13456 (write-buffered *(ebp+8) Space) 13457 (num-shift-rights *(ebp+0x10)) # => eax -13458 (print-int32-buffered *(ebp+8) %eax) +13458 (write-int32-hex-buffered *(ebp+8) %eax) 13459 (write-buffered *(ebp+8) "/imm8\n") 13460 $emit-divide-by-shift-right:end: 13461 # . restore registers @@ -12994,7 +12994,7 @@ if ('onhashchange' in window) { 13563 # TODO: ensure size is a power of 2 13564 (array-element-size %ebx *(ebp+0x10) *(ebp+0x14)) # => eax 13565 (num-shift-rights %eax) # => eax -13566 (print-int32-buffered *(ebp+8) %eax) +13566 (write-int32-hex-buffered *(ebp+8) %eax) 13567 e9/jump $translate-mu-index-stmt-with-array-in-register:emit-register-index-done/disp32 13568 } 13569 # if index->type is any other atom, abort @@ -13034,7 +13034,7 @@ if ('onhashchange' in window) { 13603 05/add-to-eax 4/imm32 13604 # TODO: check edx for overflow 13605 # print offset -13606 (print-int32-buffered *(ebp+8) %eax) +13606 (write-int32-hex-buffered *(ebp+8) %eax) 13607 (write-buffered *(ebp+8) ") ") 13608 e9/jump $translate-mu-index-stmt-with-array-in-register:emit-output/disp32 13609 } @@ -13047,7 +13047,7 @@ if ('onhashchange' in window) { 13616 (lookup *eax *(eax+4)) # Stmt-var-value Stmt-var-value => eax 13617 (lookup *(eax+0x18) *(eax+0x1c)) # Var-register Var-register => eax 13618 (get Mu-registers %eax 0xc "Mu-registers") # => eax: (addr int) -13619 (print-int32-buffered *(ebp+8) *eax) +13619 (write-int32-hex-buffered *(ebp+8) *eax) 13620 (write-buffered *(ebp+8) "/r32\n") 13621 $translate-mu-index-stmt-with-array-in-register:end: 13622 # . restore registers @@ -13105,13 +13105,13 @@ if ('onhashchange' in window) { 13674 # TODO: ensure size is a power of 2 13675 (array-element-size %ecx *(ebp+0x10) *(ebp+0x14)) # => eax 13676 (num-shift-rights %eax) # => eax -13677 (print-int32-buffered *(ebp+8) %eax) +13677 (write-int32-hex-buffered *(ebp+8) %eax) 13678 # 13679 (write-buffered *(ebp+8) " + ") 13680 # 13681 8b/-> *(ecx+0x14) 0/r32/eax # Var-offset 13682 05/add-to-eax 4/imm32 # for array length -13683 (print-int32-buffered *(ebp+8) %eax) +13683 (write-int32-hex-buffered *(ebp+8) %eax) 13684 e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-register-index-done/disp32 13685 } 13686 # if index->type is any other atom, abort @@ -13153,7 +13153,7 @@ if ('onhashchange' in window) { 13722 05/add-to-eax 4/imm32 13723 # TODO: check edx for overflow 13724 # print offset -13725 (print-int32-buffered *(ebp+8) %eax) +13725 (write-int32-hex-buffered *(ebp+8) %eax) 13726 (write-buffered *(ebp+8) ") ") 13727 e9/jump $translate-mu-index-stmt-with-array-on-stack:emit-output/disp32 13728 } @@ -13166,7 +13166,7 @@ if ('onhashchange' in window) { 13735 (lookup *eax *(eax+4)) # Stmt-var-value Stmt-var-value => eax 13736 (lookup *(eax+0x18) *(eax+0x1c)) # Var-register Var-register => eax 13737 (get Mu-registers %eax 0xc "Mu-registers") # => eax: (addr int) -13738 (print-int32-buffered *(ebp+8) *eax) +13738 (write-int32-hex-buffered *(ebp+8) *eax) 13739 (write-buffered *(ebp+8) "/r32\n") 13740 $translate-mu-index-stmt-with-array-on-stack:end: 13741 # . restore registers @@ -13206,7 +13206,7 @@ if ('onhashchange' in window) { 13775 89/<- %ebx 0/r32/eax 13776 # print array-element-size(base) 13777 (array-element-size %ebx *(ebp+0x10) *(ebp+0x14)) # => eax -13778 (print-int32-buffered *(ebp+8) %eax) +13778 (write-int32-hex-buffered *(ebp+8) %eax) 13779 (write-buffered *(ebp+8) "/imm32 ") 13780 $translate-mu-compute-index-stmt:emit-output: 13781 # outputs[0] "/r32" @@ -13214,7 +13214,7 @@ if ('onhashchange' in window) { 13783 (lookup *eax *(eax+4)) # Stmt-var-value Stmt-var-value => eax 13784 (lookup *(eax+0x18) *(eax+0x1c)) # Var-register Var-register => eax 13785 (get Mu-registers %eax 0xc "Mu-registers") # => eax: (addr int) -13786 (print-int32-buffered *(ebp+8) *eax) +13786 (write-int32-hex-buffered *(ebp+8) *eax) 13787 (write-buffered *(ebp+8) "/r32\n") 13788 $translate-mu-compute-index-stmt:end: 13789 # . restore registers @@ -13256,7 +13256,7 @@ if ('onhashchange' in window) { 13825 (lookup *(eax+0x18) *(eax+0x1c)) # Var-register Var-register => eax 13826 (write-buffered *(ebp+8) %eax) 13827 (write-buffered *(ebp+8) " + ") -13828 (print-int32-buffered *(ebp+8) %edx) +13828 (write-int32-hex-buffered *(ebp+8) %edx) 13829 (write-buffered *(ebp+8) ") ") 13830 e9/jump $translate-mu-get-stmt:emit-output/disp32 13831 } @@ -13266,7 +13266,7 @@ if ('onhashchange' in window) { 13835 # emit "*(ebp + " inouts[0]->stack-offset + offset ") " 13836 (write-buffered *(ebp+8) "*(ebp+") 13837 03/add *(eax+0x14) 2/r32/edx # Var-offset -13838 (print-int32-buffered *(ebp+8) %edx) +13838 (write-int32-hex-buffered *(ebp+8) %edx) 13839 (write-buffered *(ebp+8) ") ") 13840 eb/jump $translate-mu-get-stmt:emit-output/disp8 13841 } @@ -13277,7 +13277,7 @@ if ('onhashchange' in window) { 13846 # emit offset->register "/r32" 13847 (lookup *(eax+0x18) *(eax+0x1c)) # Var-register Var-register => eax 13848 (get Mu-registers %eax 0xc "Mu-registers") # => eax: (addr int) -13849 (print-int32-buffered *(ebp+8) *eax) +13849 (write-int32-hex-buffered *(ebp+8) *eax) 13850 (write-buffered *(ebp+8) "/r32\n") 13851 $translate-mu-get-stmt:end: 13852 # . restore registers @@ -13369,7 +13369,7 @@ if ('onhashchange' in window) { 13938 (write-buffered *(ebp+0xc) %eax) 13939 58/pop-to-eax 13940 (write-buffered *(ebp+0xc) "' has atomic type ") -13941 (print-int32-buffered *(ebp+0xc) *(eax+4)) # Tree-value +13941 (write-int32-hex-buffered *(ebp+0xc) *(eax+4)) # Tree-value 13942 (write-buffered *(ebp+0xc) Newline) 13943 (flush *(ebp+0xc)) 13944 (stop *(ebp+0x10) 1) @@ -13455,7 +13455,7 @@ if ('onhashchange' in window) { 14024 # var output-var/eax: (addr var) = second-inout->value 14025 (lookup *eax *(eax+4)) # Stmt-var-value Stmt-var-value => eax 14026 #? (write-buffered Stderr "mu-get-offset: ") -14027 #? (print-int32-buffered Stderr %eax) +14027 #? (write-int32-hex-buffered Stderr %eax) 14028 #? (write-buffered Stderr " name: ") 14029 #? 50/push-eax 14030 #? (lookup *eax *(eax+4)) # Var-name @@ -13466,7 +13466,7 @@ if ('onhashchange' in window) { 14035 # return output-var->stack-offset 14036 8b/-> *(eax+0x14) 0/r32/eax # Var-offset 14037 #? (write-buffered Stderr "=> ") -14038 #? (print-int32-buffered Stderr %eax) +14038 #? (write-int32-hex-buffered Stderr %eax) 14039 #? (write-buffered Stderr Newline) 14040 #? (flush Stderr) 14041 $emit-get-offset:end: @@ -16621,7 +16621,7 @@ if ('onhashchange' in window) { 17190 $get-stmt-operand-from-arg-location:abort: 17191 # error("invalid arg-location " eax) 17192 (write-buffered *(ebp+0x10) "invalid arg-location ") -17193 (print-int32-buffered *(ebp+0x10) %eax) +17193 (write-int32-hex-buffered *(ebp+0x10) %eax) 17194 (write-buffered *(ebp+0x10) Newline) 17195 (flush *(ebp+0x10)) 17196 (stop *(ebp+0x14) 1) @@ -16643,7 +16643,7 @@ if ('onhashchange' in window) { 17212 (lookup *(eax+0x18) *(eax+0x1c)) # Var-register Var-register => eax 17213 (maybe-get Mu-registers %eax 0xc) # => eax: (addr register-index) 17214 (write-buffered *(ebp+8) Space) -17215 (print-int32-buffered *(ebp+8) *eax) +17215 (write-int32-hex-buffered *(ebp+8) *eax) 17216 (write-buffered *(ebp+8) "/r32") 17217 $emit-subx-r32:end: 17218 # . restore registers @@ -16857,7 +16857,7 @@ if ('onhashchange' in window) { 17426 (write-buffered *(ebp+8) " *(") 17427 (write-buffered *(ebp+8) %esi) 17428 (write-buffered *(ebp+8) "+") -17429 (print-int32-buffered *(ebp+8) %eax) +17429 (write-int32-hex-buffered *(ebp+8) %eax) 17430 (write-buffered *(ebp+8) ")") 17431 # i += 4 17432 05/add-to-eax 4/imm32 @@ -16897,7 +16897,7 @@ if ('onhashchange' in window) { 17466 7d/jump-if->= break/disp8 17467 # emit " *(ebp+" curr ")" 17468 (write-buffered *(ebp+8) " *(ebp+") -17469 (print-int32-buffered *(ebp+8) %ecx) +17469 (write-int32-hex-buffered *(ebp+8) %ecx) 17470 (write-buffered *(ebp+8) ")") 17471 # i += 4 17472 81 0/subop/add %ecx 4/imm32 @@ -16960,7 +16960,7 @@ if ('onhashchange' in window) { 17529 $emit-subx-var-as-rm32:stack: 17530 (write-buffered *(ebp+8) Space) 17531 (write-buffered *(ebp+8) "*(ebp+") -17532 (print-int32-buffered *(ebp+8) *(esi+0x14)) # Var-offset +17532 (write-int32-hex-buffered *(ebp+8) *(esi+0x14)) # Var-offset 17533 (write-buffered *(ebp+8) ")") 17534 } 17535 $emit-subx-var-as-rm32:end: -- cgit 1.4.1-2-gfad0